home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / ADDRBOOK.BAS next >
BASIC Source File  |  1985-05-30  |  6KB  |  195 lines
  1. 10 REM --------------------------------------------------------
  2. 20 REM -- If you find this program of some value, a donation --
  3. 30 REM -- of $3 would be appreciated.  Send your contibution --
  4. 40 REM -- to:                                                --
  5. 50 REM --      Chris Hunt                                    --
  6. 60 REM --      6752 Barbara Drive                            --
  7. 70 REM --      Victoria, B.C.                                --
  8. 80 REM --      V8Z 5T5                                       --
  9. 90 REM --      Canada                                        --
  10. 100 REM --------------------------------------------------------
  11. 110 KEY OFF
  12. 120 COLOR 7
  13. 130 CLS
  14. 140 PRINT "╔══════════════════════════════════════════════════════════════════════════════╗";
  15. 150 FOR A=1 TO 22
  16. 160 PRINT "║                                                                              ║";
  17. 170 NEXT A
  18. 180 PRINT"╚══════════════════════════════════════════════════════════════════════════════╝";
  19. 190 LOCATE 9,32
  20. 200 PRINT "THE ADDRESS BOOK"
  21. 210 LOCATE 11,39
  22. 220 PRINT "by"
  23. 230 LOCATE 13,35
  24. 240 PRINT "Chris Hunt"
  25. 250 FOR A=1 TO 4000
  26. 260 NEXT A
  27. 270 CLS
  28. 280 PRINT"╓───────────╖"
  29. 290 PRINT"║ Main Menu ║"
  30. 300 PRINT"╙───────────╜"
  31. 310 PRINT
  32. 320 PRINT
  33. 330 PRINT"Options:"
  34. 340 PRINT
  35. 350 PRINT"  1.  Enter data (from keyboard)"
  36. 360 PRINT"  2.  Save data (to disk)"
  37. 370 PRINT"  3.  Enter data (from disk)"
  38. 380 PRINT"  4.  Print data"
  39. 390 PRINT"  5.  Return to BASIC"
  40. 400 PRINT"  6.  Return to MS-DOS"
  41. 410 PRINT
  42. 420 COLOR 31:PRINT"  A";:COLOR 7:PRINT" to see files in drive A:"
  43. 430 COLOR 31:PRINT"  B";:COLOR 7:PRINT" to see files in drive B:"
  44. 440 A$=INKEY$
  45. 450 IF A$="a" THEN 1720
  46. 460 IF A$="b" THEN 1820
  47. 470 A=VAL(A$)
  48. 480 ON A GOTO 500,730,980,1230,1470,1590
  49. 490 GOTO 440
  50. 500 CLS
  51. 510 PRINT"╓────────────╖"
  52. 520 PRINT"║ Enter Data ║"
  53. 530 PRINT"╙────────────╜"
  54. 540 PRINT
  55. 550 INPUT"Enter subject's name              ";NAM$
  56. 560 INPUT"Enter subject's address           ";ADDRESS$
  57. 570 INPUT"Enter subject's city              ";CITY$
  58. 580 INPUT"Enter subject's province          ";PROVINCE$
  59. 590 INPUT"Enter subject's postal code       ";POSTALCODE$
  60. 600 INPUT"Enter subject's telephone number  ";PHONENUMBER$
  61. 610 PRINT
  62. 620 PRINT NAM$
  63. 630 PRINT ADDRESS$
  64. 640 PRINT CITY$
  65. 650 PRINT PROVINCE$
  66. 660 PRINT POSTALCODE$
  67. 670 PRINT PHONENUMBER$
  68. 680 PRINT
  69. 690 INPUT"Is the above correct ";A$
  70. 700 IF LEFT$(A$,1)="n" THEN GOTO 500
  71. 710 CLS
  72. 720 GOTO 270
  73. 730 CLS
  74. 740 PRINT"╓───────────╖"
  75. 750 PRINT"║ Save Data ║"
  76. 760 PRINT"╙───────────╜"
  77. 770 PRINT
  78. 780 INPUT"What drive";DR$
  79. 790 INPUT"Enter file name";NME$
  80. 800 PRINT
  81. 810 PRINT"Please stand by,"
  82. 820 PRINT"  Writing Disk File : ";NME$
  83. 830 NAMM$=DR$+":"+NME$+".ab1"
  84. 840 OPEN NAMM$ FOR OUTPUT AS #1
  85. 850 PRINT #1,NAM$
  86. 860 PRINT #1,ADDRESS$
  87. 870 PRINT #1,CITY$
  88. 880 PRINT #1,PROVINCE$
  89. 890 PRINT #1,POSTALCODE$
  90. 900 PRINT #1,PHONENUMBER$
  91. 910 CLOSE #1
  92. 920 PRINT
  93. 930 PRINT"Writing complete"
  94. 940 FOR A=1 TO 2000
  95. 950 NEXT A
  96. 960 CLS
  97. 970 GOTO 270
  98. 980 CLS
  99. 990 PRINT"╓───────────╖"
  100. 1000 PRINT"║ Load Data ║"
  101. 1010 PRINT"╙───────────╜"
  102. 1020 PRINT
  103. 1030 INPUT"Enter drive ";DR$
  104. 1040 INPUT"Enter file name ";NME$
  105. 1050 PRINT
  106. 1060 PRINT"Please stand by,"
  107. 1070 PRINT"  Reading Disk File : ";NME$
  108. 1080 NAMM$=DR$+":"+NME$+".ab1"
  109. 1090 OPEN NAMM$ FOR INPUT AS #1
  110. 1100 INPUT #1, NAM$
  111. 1110 INPUT #1, ADDRESS$
  112. 1120 INPUT #1, CITY$
  113. 1130 INPUT #1, PROVINCE$
  114. 1140 INPUT #1, POSTALCODE$
  115. 1150 INPUT #1, PHONENUMBER$
  116. 1160 CLOSE#1
  117. 1170 PRINT
  118. 1180 PRINT"Reading complete"
  119. 1190 FOR A=1 TO 2000
  120. 1200 NEXT A
  121. 1210 CLS
  122. 1220 GOTO 270
  123. 1230 CLS
  124. 1240 PRINT"╓────────────╖"
  125. 1250 PRINT"║ Print Data ║"
  126. 1260 PRINT"╙────────────╜"
  127. 1270 PRINT
  128. 1280 PRINT"Insert paper, and make sure printer is ";:COLOR 31:PRINT"ON":COLOR 7
  129. 1290 PRINT
  130. 1300 PRINT"Hit ";:COLOR 31:PRINT"SPACE";:COLOR 7:PRINT" when ready."
  131. 1310 PRINT
  132. 1320 IF INKEY$<>" " THEN 1320
  133. 1330 PRINT"Please stand by,"
  134. 1340 PRINT"  Now printing data to printer."
  135. 1350 PRINT
  136. 1360 LPRINT NAM$
  137. 1370 LPRINT ADDRESS$
  138. 1380 LPRINT CITY$;", ";PROVINCE$
  139. 1390 LPRINT POSTALCODE$
  140. 1400 LPRINT
  141. 1410 LPRINT PHONENUMBER$
  142. 1420 PRINT "Printing complete"
  143. 1430 FOR A=1 TO 2000
  144. 1440 NEXT A
  145. 1450 CLS
  146. 1460 GOTO 270
  147. 1470 CLS
  148. 1480 PRINT"╓─────────────────╖"
  149. 1490 PRINT"║ Return to BASIC ║"
  150. 1500 PRINT"╙─────────────────╜"
  151. 1510 PRINT
  152. 1520 PRINT"WARNING: ";
  153. 1530 COLOR 7
  154. 1540 PRINT"All previous data will be lost."
  155. 1550 PRINT
  156. 1560 INPUT"Are you sure";A$
  157. 1570 IF LEFT$(A$,1)="y" THEN END
  158. 1580 GOTO 270
  159. 1590 CLS
  160. 1600 PRINT"╓──────────────────╖"
  161. 1610 PRINT"║ Return to MS-DOS ║"
  162. 1620 PRINT"╙──────────────────╜"
  163. 1630 PRINT
  164. 1640 COLOR 31
  165. 1650 PRINT"WARNING: ";
  166. 1660 COLOR 7
  167. 1670 PRINT"All previous data will be lost."
  168. 1680 PRINT
  169. 1690 INPUT"Are you sure";A$
  170. 1700 IF LEFT$(A$,1)="y" THEN SYSTEM
  171. 1710 GOTO 270
  172. 1720 CLS
  173. 1730 PRINT"╓───────────────╖"
  174. 1740 PRINT"║ Files Drive A ║"
  175. 1750 PRINT"╙───────────────╜"
  176. 1760 PRINT
  177. 1770 FILES "a:"
  178. 1780 PRINT
  179. 1790 PRINT" Hit ";:COLOR 31:PRINT"SPACE";:COLOR 7:PRINT" to return to menu"
  180. 1800 IF INKEY$<>" " THEN 1800
  181. 1810 GOTO 270
  182. 1820 CLS
  183. 1830 PRINT"╓───────────────╖"
  184. 1840 PRINT"║ Files Drive B ║"
  185. 1850 PRINT"╙───────────────╜"
  186. 1860 PRINT
  187. 1870 FILES "b:"
  188. 1880 PRINT
  189. 1890 PRINT" Hit ";:COLOR 31:PRINT"SPACE";:COLOR 7:PRINT" to return to menu"
  190. 1900 IF INKEY$<>" " THEN 1800
  191. 1910 GOTO 270
  192. NT
  193. 1890 PRINT" Hit ";:COLOR 31:PRINT"SPACE";:COLOR 7:PRINT" to return to menu"
  194. 1900 IF INKEY$<>" " THEN 1800
  195. 1910 GO